home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-19 / surfsrc3.zip / MENU.INC < prev    next >
Text File  |  1991-09-29  |  1KB  |  36 lines

  1. procedure MENU (var Cmmd: integer);
  2.  
  3.   begin
  4.     perf_show;    { Draw performance window }
  5.     repeat
  6.       openwin (13,6,67,21, FALSE);
  7.       clrscr;     { Just clear the window }
  8.       gotoXY(1,1);
  9.       writeln ('            SURFMODL ', Surfmvsn, ' (',Lastupd,')');
  10.       writeln;
  11.       writeln ('            by Kenneth Van Camp, Kevin Lowey,');
  12.       writeln ('                and a cast of thousands');
  13.       writeln;
  14.       writeln ('                     MAIN MENU');
  15.       writeln;
  16.       writeln ('               1  Change Parameters');
  17.       writeln ('               2  Wire Frame Plot');
  18.       writeln ('               3  Hidden Line Removal');
  19.       writeln ('               4  Surface Model');
  20.       writeln ('               5  Read New File From Disk');
  21.       writeln ('               0  Exit Program');
  22.       write ('Command: ');
  23.       Cmmd := getkey;
  24.       if (Cmmd < 0) or (Cmmd > 5) then
  25.         write(^G)
  26.       else begin
  27.         writeln (cmmd);
  28.         if cmmd = 0 then begin
  29.           write ('Do you really want to quit (Y/N): ');
  30.           if upcase (readkey) <> 'Y' then
  31.             cmmd := -1;
  32.         end;
  33.       end;
  34.     until ((Cmmd >= 0) and (Cmmd <= 5));
  35. end; { procedure Menu }
  36.